2 POKE56,32:CLR
4 DV=PEEK(186):IFDV<8THENDV=8
6 POKE53281,0:POKE53280,0:PRINT"[147]"
8 GOSUB60000
13 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
14 SYS57812"SNOW MAN.SHP",DV,0:POKE780,0:POKE781,0:POKE782,40:SYS65493
15 SYS57812"SANTA.SHP",DV,0:POKE780,0:POKE781,0:POKE782,66:SYS65493
16 SYS57812"KIDS.SHP",DV,0:POKE780,0:POKE781,0:POKE782,91:SYS65493
17 SYS57812"MADONNA.SHP",DV,0:POKE780,0:POKE781,0:POKE782,109:SYS65493
18 SYS57812"MINI FONT",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
19 PRINT"":POKE53272,25
20 P(0)=40:P(1)=66:P(2)=91:P(3)=109
21 B(0)=6:B(1)=6:B(2)=6:B(3)=0
22 S=54272:I=RND(-TI)
24 PRINT"[147]"
26 POKE53280,0:GOSUB300
30 POKE214,18:PRINT:FORI=0TO4:PRINTTAB(10)LEFT$(Z$,20):NEXT
32 POKE214,19:PRINT:PRINTTAB(12)"[211][208][193][195][197] - [208]ICTURE"
34 PRINTTAB(15)"[209] - [209]UIT"
50 R=INT(RND(1)*1000)+1024
52 IFPEEK(R)>224ANDPEEK(R)<256THENIFRND(1)>.5THENRR=32:GOTO64
60 IFPEEK(R)<>32THEN50
62 RR=INT(RND(1)*30)+225
64 POKER,RR:POKER+S,1
70 GETA$:IFA$=""THEN50
80 IFA$="Q"THEN40000
90 IFA$<>" "THEN50
110 POKE251,P(P):POKE252,224:POKE253,204
120 POKE53280,B(P):SYS51456:SYS51459
130 POKE198,0
140 GETA$:IFA$=""THEN140
150 POKE53281,1:SYS51459:POKE53281,0
160 P=(P+1)AND3
170 GOTO26
300 PRINT""TAB(7)"[174]  [176] [176][192][192][174] [174]   [176][192][178][192][174]' [176][192][192][174]
302 [153][163]7)"(null)OR^(null) -TANTAN< (null)     (null)    /TANTAN^
304 PRINTTAB(7)"[173][189][173][189] [189]  [173] [173][192][192][189]  [177]    [173][192][192][189]"
306 PRINTTAB(13)"[153][176][174][176][174] [178] [176][174][176] [178]"
308 PRINTTAB(13)"[221][173][189][221] [221] [221][221][221] [221]"
310 PRINTTAB(13)"[189]  [173] [177] [189][173][189] [177]"
312 PRINT"    [176][192][174] [174] [176] [176][192][174] [178] [176][192][174][176][192][178][192][174][176][174][176][174] [176][192][174] [176][192][174]
314 [153]"    (null)   -TAN< -=EXP (null) /TAN^  (null)  (null)/EXP(null) -TAN< /TAN^
316 PRINT"    [173][192][189] [189] [173] [189][173][189] [177] [173][192][189]  [177]  [189]  [173] [189] [173] [173][192][189]
318 [142]
10000 DV[178][194](186):[159]15,DV,15,"S0:MINI XMAS":[160]15:[148]"MINI XMAS",DV:[128]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      "
60010 [151]214,13:[153]:[129]I[178]0[164]9:[153]Z$:[130]
60030 Z$(0)[178]"(null) ATN (null) (null) ' (null)    (null) RIGHT$ (null) RIGHT$ - (null) (null) ATN (null)"
60032 Z$(1)[178]"BY (null)ALT LEFT$ARNED AND ASCENDER (null)UCKER"
60040 Z$(2)[178]"(LEN) 1995 BY (null)OFTDISK (null)UBLISHING"[170][199](13)
60050 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="[212]O SUBSCRIBE CALL 1-800-594-3370.
60090 [151]214,14:[153]
60100 [129]I[178]0[164]6:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]